home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Libraries & Documentation / Misc / For Think P v3 / TP3extra.p < prev   
Text File  |  1995-03-30  |  346b  |  18 lines
  1. unit TP3extra;
  2.  
  3. interface
  4.  
  5. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  6.  
  7. implementation
  8.  
  9. FUNCTION _Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  10.     INLINE $225F, $201F, $A1AD, $2288, $3E80;
  11.  
  12. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  13. begin
  14.     Gestalt := _Gestalt(selector, response);
  15. end;
  16.  
  17. end.
  18.